home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_25693.txt < prev    next >
Text File  |  1990-08-14  |  9KB  |  376 lines
  1. -- card: 25693 from stack: in
  2. -- bmap block id: 26501
  3. -- flags: 4000
  4. -- background id: 25947
  5. -- name: TD Personal
  6. ----- HyperTalk script -----
  7. on openCard
  8.   get (item 2 of the abbrev date & ", " & char 4 to 5 of item 3 of the abbrev date)
  9.   put empty into char 1 of it
  10.   if card field "Birthdate" is empty then
  11.     put it into card field "Birthdate"
  12.   end if
  13.   if card field "Date hired" is empty then
  14.     put it into card field "Date hired"
  15.   end if
  16.   tabKey
  17. end openCard
  18.  
  19.  
  20. -- part 1 (field)
  21. -- low flags: 00
  22. -- high flags: 0000
  23. -- rect: left=109 top=71 right=91 bottom=191
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 0 / 0
  26. -- text alignment: 0
  27. -- font id: 0
  28. -- text size: 12
  29. -- style flags: 0
  30. -- line height: 16
  31. -- part name: Teacher #
  32.  
  33.  
  34. -- part 2 (field)
  35. -- low flags: 00
  36. -- high flags: 0000
  37. -- rect: left=244 top=71 right=91 bottom=301
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 0
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: Title
  46. ----- HyperTalk script -----
  47. on closeField
  48.   global teacherName
  49.   if (card field "First Name" is not empty) OR (card field "Last Name" is not empty) then
  50.     put card field "Title" & " " & card field "First Name" & " " & card field "Last Name" into teacherName
  51.   else put empty into teacherName
  52. end closeField
  53.  
  54.  
  55. -- part 3 (field)
  56. -- low flags: 00
  57. -- high flags: 0000
  58. -- rect: left=109 top=96 right=116 bottom=301
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 0
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: Last Name
  67. ----- HyperTalk script -----
  68. on closeField
  69.   global teacherName
  70.   if (card field "First Name" is not empty) OR (card field "Last Name" is not empty) then
  71.     put card field "Title" & " " & card field "First Name" & " " & card field "Last Name" into teacherName
  72.   else put empty into teacherName
  73. end closeField
  74.  
  75.  
  76. -- part 4 (field)
  77. -- low flags: 00
  78. -- high flags: 0000
  79. -- rect: left=109 top=121 right=141 bottom=301
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 0
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: First Name
  88. ----- HyperTalk script -----
  89. on closeField
  90.   global teacherName
  91.   if (card field "First Name" is not empty) OR (card field "Last Name" is not empty) then
  92.     put card field "Title" & " " & card field "First Name" & " " & card field "Last Name" into teacherName
  93.   else put empty into teacherName
  94. end closeField
  95.  
  96.  
  97. -- part 5 (field)
  98. -- low flags: 00
  99. -- high flags: 0000
  100. -- rect: left=362 top=121 right=141 bottom=485
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 0
  104. -- font id: 0
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: Middle
  109.  
  110.  
  111. -- part 6 (field)
  112. -- low flags: 00
  113. -- high flags: 0000
  114. -- rect: left=109 top=146 right=166 bottom=410
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 0
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: Address
  123.  
  124.  
  125. -- part 7 (field)
  126. -- low flags: 00
  127. -- high flags: 0000
  128. -- rect: left=109 top=171 right=191 bottom=269
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 0 / 0
  131. -- text alignment: 0
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: City
  137.  
  138.  
  139. -- part 8 (field)
  140. -- low flags: 00
  141. -- high flags: 0000
  142. -- rect: left=109 top=196 right=216 bottom=182
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 0
  146. -- font id: 0
  147. -- text size: 12
  148. -- style flags: 0
  149. -- line height: 16
  150. -- part name: State
  151.  
  152.  
  153. -- part 9 (field)
  154. -- low flags: 00
  155. -- high flags: 0000
  156. -- rect: left=109 top=221 right=241 bottom=182
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 0
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: Zip Code
  165.  
  166.  
  167. -- part 10 (field)
  168. -- low flags: 00
  169. -- high flags: 0000
  170. -- rect: left=356 top=171 right=191 bottom=485
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 0 / 0
  173. -- text alignment: 0
  174. -- font id: 0
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: S.S.N.
  179.  
  180.  
  181. -- part 11 (field)
  182. -- low flags: 00
  183. -- high flags: 0000
  184. -- rect: left=381 top=196 right=216 bottom=485
  185. -- title width / last selected line: 0
  186. -- icon id / first selected line: 0 / 0
  187. -- text alignment: 0
  188. -- font id: 0
  189. -- text size: 12
  190. -- style flags: 0
  191. -- line height: 16
  192. -- part name: Phone #
  193.  
  194.  
  195. -- part 12 (field)
  196. -- low flags: 00
  197. -- high flags: 0000
  198. -- rect: left=381 top=221 right=241 bottom=485
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 0 / 0
  201. -- text alignment: 0
  202. -- font id: 0
  203. -- text size: 12
  204. -- style flags: 0
  205. -- line height: 16
  206. -- part name: Emergency
  207.  
  208.  
  209. -- part 13 (field)
  210. -- low flags: 01
  211. -- high flags: 0000
  212. -- rect: left=88 top=249 right=269 bottom=180
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 0 / 0
  215. -- text alignment: 0
  216. -- font id: 0
  217. -- text size: 12
  218. -- style flags: 0
  219. -- line height: 16
  220. -- part name: Birthdate
  221.  
  222.  
  223. -- part 14 (field)
  224. -- low flags: 01
  225. -- high flags: 0000
  226. -- rect: left=88 top=275 right=295 bottom=180
  227. -- title width / last selected line: 0
  228. -- icon id / first selected line: 0 / 0
  229. -- text alignment: 0
  230. -- font id: 0
  231. -- text size: 12
  232. -- style flags: 0
  233. -- line height: 16
  234. -- part name: Date hired
  235.  
  236.  
  237. -- part 15 (field)
  238. -- low flags: 01
  239. -- high flags: 0000
  240. -- rect: left=341 top=249 right=267 bottom=487
  241. -- title width / last selected line: 0
  242. -- icon id / first selected line: 0 / 0
  243. -- text alignment: 0
  244. -- font id: 0
  245. -- text size: 12
  246. -- style flags: 0
  247. -- line height: 16
  248. -- part name: Home Language
  249.  
  250.  
  251. -- part 16 (field)
  252. -- low flags: 01
  253. -- high flags: 0000
  254. -- rect: left=341 top=275 right=293 bottom=487
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 0 / 0
  257. -- text alignment: 0
  258. -- font id: 0
  259. -- text size: 12
  260. -- style flags: 0
  261. -- line height: 16
  262. -- part name: Ethnic Category
  263.  
  264.  
  265. -- part 17 (button)
  266. -- low flags: 00
  267. -- high flags: C006
  268. -- rect: left=313 top=72 right=88 bottom=368
  269. -- title width / last selected line: 0
  270. -- icon id / first selected line: 0 / 0
  271. -- text alignment: 1
  272. -- font id: 0
  273. -- text size: 12
  274. -- style flags: 0
  275. -- line height: 16
  276. -- part name: Male
  277. ----- HyperTalk script -----
  278. on mouseUp
  279.   set hilite of button "Female" to false
  280.   set hilite of button "Male" to true
  281. end mouseUp
  282.  
  283.  
  284.  
  285. -- part 18 (button)
  286. -- low flags: 00
  287. -- high flags: 8006
  288. -- rect: left=368 top=72 right=88 bottom=438
  289. -- title width / last selected line: 0
  290. -- icon id / first selected line: 0 / 0
  291. -- text alignment: 1
  292. -- font id: 0
  293. -- text size: 12
  294. -- style flags: 0
  295. -- line height: 16
  296. -- part name: Female
  297. ----- HyperTalk script -----
  298. on mouseUp
  299.   set hilite of button "Male" to false
  300.   set hilite of button "Female" to true
  301. end mouseUp
  302.  
  303.  
  304.  
  305. -- part 19 (button)
  306. -- low flags: 00
  307. -- high flags: 0000
  308. -- rect: left=210 top=250 right=266 bottom=486
  309. -- title width / last selected line: 0
  310. -- icon id / first selected line: 0 / 0
  311. -- text alignment: 0
  312. -- font id: 0
  313. -- text size: 12
  314. -- style flags: 0
  315. -- line height: 16
  316. -- part name: Home Language
  317. ----- HyperTalk script -----
  318. on mouseDown
  319.   global checkLoc1
  320.   if first item of the clickLoc >= 333 then
  321.     get the rect of me
  322.     put item 1 of it + 123 into horz
  323.     put item 2 of it into vert
  324.     set hilite of me to true
  325.     put "NA                              ,Chinese,English," into menuList
  326.     put "French,German,Hatian,Japanese,Russian,Spanish" after menuList
  327.     put PopUpMenu(menuList,vert,horz,checkLoc1) into temp
  328.     if temp > 0 then
  329.       put item temp of menuList into card field "Home Language"
  330.       put temp into checkLoc1
  331.     end if
  332.     set hilite of me to false
  333.   end if
  334. end mouseDown
  335.  
  336.  
  337. -- part 20 (button)
  338. -- low flags: 00
  339. -- high flags: 0000
  340. -- rect: left=210 top=276 right=292 bottom=486
  341. -- title width / last selected line: 0
  342. -- icon id / first selected line: 0 / 0
  343. -- text alignment: 0
  344. -- font id: 0
  345. -- text size: 12
  346. -- style flags: 0
  347. -- line height: 16
  348. -- part name: Ethnic Category
  349. ----- HyperTalk script -----
  350. on mouseDown
  351.   global checkLoc2
  352.   if first item of the clickLoc >= 333 then
  353.     get the rect of me
  354.     put item 1 of it + 123 into horz
  355.     put item 2 of it into vert
  356.     set hilite of me to true
  357.     put "NA                              ,American," into menuList
  358.     put "Canadian,Chinese,French,Greek,Hatian,Japanese," after menuList
  359.     put "Korean,Mexican,Native Indian,Spanish,Ukranian" after menuList
  360.     put PopUpMenu(menuList,vert,horz,checkLoc2) into temp
  361.     if temp > 0 then
  362.       put item temp of menuList into card field "Ethnic Category"
  363.       put temp into checkLoc2
  364.     end if
  365.     set hilite of me to false
  366.   end if
  367. end mouseDown
  368.  
  369.  
  370. -- part contents for card part 15
  371. ----- text -----
  372. NA
  373.  
  374. -- part contents for card part 16
  375. ----- text -----
  376. NA